home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / t_os / komei4 / komei4.exe / ICON / LD3.HD6 < prev    next >
Text File  |  1993-07-04  |  3KB  |  257 lines
  1. ds_name        db    'MOJ\GAZLD',0
  2.  
  3. ;16色画像のロードと表示
  4.  
  5.  
  6. paint_wd:
  7.  
  8.      SET_P pdt1
  9.      SET_P pdt2
  10.      SET_P pdt3
  11.      SET_P send_gaz
  12.      SET_P dt_end1
  13.      SET_P dt_ongak
  14.  
  15.  
  16.      WD_LEFT        ;初期化は終わりウインドウより離脱
  17.      ret
  18.  
  19. re_paint:
  20.  
  21.      WD_CLS 0
  22.      BOX boxdt,1
  23.      MOZI mozidt
  24.     ret
  25.  
  26. be_called:
  27.  
  28.     YOMU    ax,300
  29.     cmp    ax,400
  30.     je    neru
  31.     cmp    ax,500
  32.     je    okiru
  33.  
  34.      ret
  35. neru:
  36.     WD_ERZ 0
  37.     WD_LEFT
  38.     ret
  39. okiru:
  40.     WD_WANT
  41.     jmp    re_paint
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48. mouse_in:
  49.       cmp ch,1
  50.      je find2
  51.       ret
  52.  
  53. find2:
  54.     mov    ah,25
  55.     mov    al,2
  56.     mov    bx,1
  57.     call    komei
  58.  
  59.     KAKU    word ptr 300,1
  60.     KAKU    word ptr 302,3    ;一曲目のデータセット
  61.     CALL_P    dt_ongak
  62.  
  63.     KAKU    word ptr 300,2    ; 音楽チェンジ
  64.     CALL_P    dt_end1
  65.  
  66.      CALL_P pdt1        ;デイスクホルダー関羽
  67.      cmp edx,0
  68.      jne find2_1
  69.  
  70. nao:
  71.     mov    ah,27
  72.     call    komei        ;アクティブウインドウの書き直し｡
  73.  
  74.  
  75.     KAKU    word ptr 300,1
  76.     KAKU    word ptr 302,2    ;一曲目のデータセット
  77.     CALL_P    dt_ongak
  78.  
  79.     KAKU    word ptr 300,2    ; 音楽チェンジ
  80.     CALL_P    dt_end1
  81.  
  82.     ret
  83.  
  84. enodekasa:
  85.  
  86.     call    sub_esi
  87.     dd    0
  88.  
  89. find2_1:
  90.     push    edx
  91.     call    bytesu
  92.     pop    edx
  93.     cmp    ecx,0
  94.     je    nao
  95.  
  96.     cmp    ecx,256*1024
  97.     jae    nao
  98.  
  99.     call    enodekasa
  100.     sub    ecx,512
  101.     mov    [esi],ecx
  102.  
  103.  
  104.      RAM0 edi
  105.      sub edi,512
  106.      call load        ;画像のロード
  107.  
  108.  
  109.      RAM0 edi
  110.      sub edi,512
  111.      mov cx,54[edi]
  112.      cmp cx,4
  113.      jne    nao
  114.  
  115.     mov    ah,5
  116.     mov    al,1
  117.     call    zzz
  118.  
  119. ;    mov    ax,[edi+30]
  120.  
  121.     movzx    ebx,word ptr [edi+42]
  122.     call    enodekasa
  123.     mov    eax,[esi]
  124.     sub    edx,edx
  125.     div    ebx
  126.  
  127.     
  128.  
  129.     cmp    ax,640
  130.     jae    nao
  131.     cmp    bx,480
  132.     jae    nao
  133.  
  134.     RAM0    edi
  135.     
  136.     call    put_dt
  137.     mov    [esi+6],ax
  138.     mov    [esi+8],bx
  139.     
  140.     mov    [esi+10],edi
  141.     mov    edi,esi
  142.     KAKU    word ptr 300,1
  143.     KAKU    302,edi
  144.     CALL_P    send_gaz
  145.     
  146.  
  147.     RAM0    edi
  148.     sub    edi,512
  149.  
  150.      KAKU    word ptr 300,20
  151.      add edi,100
  152.  
  153.      KAKU    302,edi
  154.      CALL_P pdt2
  155.  
  156.      KAKU    word ptr 300,500
  157.      GO_P    pdt3
  158.  
  159. ;    jmp    nao
  160.  
  161.  
  162. ;***********************
  163. ;  in       300  1
  164. ;           302 命令データの有る番地
  165. ;**********************
  166. ;命令の書式
  167. ; 
  168. put_dt:
  169.     call    sub_esi
  170.     dw    1    ; [0]    dw   0 or 1  screen_no
  171.     dw    0    ; [2]    dw   書き出し位置 x
  172.     dw    0    ; [4]    dw   書き出し位置 y
  173.     dw    0    ; [6]    dw   横バイト数
  174.     dw    0    ; [8]    dw   縦バイト数
  175.     dd    0    ; [10]   dd   画像データ保存番地
  176.  
  177. ;********************************
  178. send_gaz:
  179.     call    sub_edi
  180.     dw    0
  181.     db    'SEND16',0
  182.  
  183. zzz:
  184.     M_ZZZ
  185.  
  186. load:
  187.      M_LOAD
  188.  
  189. bytesu:
  190.     M_BYTESU
  191. p_call:
  192.      M_P_CALL
  193. p_set:
  194.     M_P_SET
  195.  
  196. now_cm:
  197.      call sub_ecx
  198.      dw     0,0,0
  199.  
  200. look_me:
  201.               call sub_esi
  202.             dd       0,0
  203.         dw    1
  204.         dw    ?
  205.          dw     120
  206.          dw    24
  207.          dw    200
  208.          dw    450
  209.          dw     15
  210.          dw     5
  211.          dw     ?
  212.  
  213. boxdt:
  214.     call sub_edi
  215.         dw    1,120,24,0,0,40,0,2,1,0
  216.  
  217.  
  218. ; [count][sz_x][sz_y][off_x][off_y][+x][+y][f_col][b_col][s_no]
  219.  
  220. mozidt:
  221.     call sub_edi
  222.            dw    0        ;screen_no
  223.            dw    15      ; mozi_color
  224.            dw    5      ; 書き出し位置  x
  225.            dw    0      ;          y
  226.            dw    20      ; next offset x
  227.            dw   0
  228.                dw   1      ; gyo suu
  229.  
  230.                    db    'TIF -> ICON',0
  231.  
  232. pdt1:
  233.      call sub_edi
  234.      dw    ?
  235.      db '関羽',0
  236.  
  237. pdt2:
  238.      call sub_edi
  239.      dw    ?
  240.      db 'CONTEN',0
  241. pdt3:
  242.      call sub_edi
  243.      dw    ?
  244.      db 'MKICON',0
  245.  
  246. dt_end1:
  247.      call sub_edi
  248.      dw    ?
  249.      db 'END1',0
  250.  
  251. dt_ongak:
  252.      call sub_edi
  253.      dw    ?
  254.      db 'ONGAK',0
  255.  
  256.  
  257.